home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / LISTTRAN.SRC < prev    next >
Text File  |  1990-11-03  |  3KB  |  174 lines
  1. ;\|
  2. ;LISTTRAN.SRC     Translated from LISTTRAN.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;TRANSES  12:28:30 PM   5/ 3/88                    |
  4. ;Program generated with the report writer|
  5.     define(PAGE|N|5|0|)
  6.     define(DATE.TIME.FLD|A|46||)
  7.     define(TOT.RECS|N|8|0|)
  8.     define(CHG.TIME|T|8||)
  9.     define(CHG.DATE|D|10||)
  10.     define(STDDAYS|A|12||)
  11.     define(STDMONTH|A|12||)
  12.     define(STDYEAR|A|6||)
  13.     define(STDAYH|A|4||)
  14.     define(AM.PM|A|2||)
  15.     define(TIME.STRG|A|10||)
  16.     define(PG.STRG|A|5||)
  17.     define(SELECT.FLD.F1|A|  1||)
  18.     define(SELECT.FLD.T1|A|  1||)
  19.     define(COMMODE|A|2||)
  20.     co(COMMODE|G)
  21.     clrscr
  22.     clrlne(1|25)
  23.     open(TRANS|COMMODE||EXIT)
  24.     gosub GET.DATE
  25.     mount(SELECT|S||)
  26.     enter(SELECT.FLD.F1||||||||)
  27.     enter(SELECT.FLD.T1||||||||)
  28.     mount(REPORT|R|P)
  29.     pchr(P|10)
  30.     pchr(P|11)
  31.     pchr(P|4)
  32.     pchr(P|1)
  33.     trap(P|S|TOF)
  34.     gosub TOF
  35.     trap(P|S|TOF)
  36.     trap(I|G|FINI)
  37.     find(B|TRANS.DATE     |NO.RECS)
  38. PRT.REC:
  39.     if SELECT.FLD.F1 <> ("") then  if SELECT.FLD.F1 > (TRANS.TYPE) goto RD.NEXT
  40.     if SELECT.FLD.T1 <> ("") then  if SELECT.FLD.T1 < (TRANS.TYPE) goto RD.NEXT
  41.     pfmt(6||||)
  42.     TOT.RECS = (TOT.RECS + 1)
  43. RD.NEXT:
  44.     find(N|TRANS   |FINI)
  45.     goto PRT.REC
  46. FINI:
  47.     pfmt(5||||)
  48.     pfmt(8||||)
  49.     pblnk(2)
  50.     pfmt(7||||)
  51.     trap(P|D|)
  52.     ptof
  53.     run("TRANS")
  54. TOF:
  55.     PAGE = (PAGE + 1)
  56.     pfmt(1||||)
  57.     pfmt(2||||)
  58.     pfmt(3||||)
  59.     pblnk(1)
  60.     pfmt(4||||)
  61.     pfmt(5||||)
  62.     ret
  63. GET.DATE:
  64.     time(CHG.TIME|G)
  65.     date(CHG.DATE|G)
  66.     AM.PM = ("AM")
  67.     if CHG.TIME > (43199) doO 
  68.         {
  69.         AM.PM = ("PM")
  70.         if CHG.TIME > (46799) then  CHG.TIME = (CHG.TIME - 43200)
  71.         }
  72.     TIME.STRG =mid(CHG.TIME|1|8|)
  73.     STDDAYS =day(CHG.DATE)
  74.     STDMONTH =xmt(CHG.DATE)
  75.     STDAYH =mid(CHG.DATE|4|2|)
  76.     STDYEAR =mid(CHG.DATE|7|4|)
  77.     PG.STRG = (PAGE)
  78.     DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  79.     ret
  80. NO.RECS:
  81.     pmsg("There are no records in the TRANS    file "|1|24|Y|||)
  82. EXIT:
  83.     run("TRANS")
  84. \R REPORT  
  85.                     LIST OF TRANSACTIONS FOR BANK RECONCIL.
  86.                 &
  87.                                  Page # &
  88. TRANS.DATE  TRANS.AMOUNT   PRACTICE.REF  EXTERNAL.REF  NOMINAL.ACCOUNT  TRANS.TYPE
  89. ----------  ------------  ------------  ---------------  ----------     ----------
  90. &           &              &             &             &                &
  91. Total number of records printed: &
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133. \
  134. DATE.TIME.FLD
  135. PAGE
  136. TRANS.DATE
  137. TRANS.AMOUNT
  138. PRACTICE.REF
  139. EXTERNAL.REF
  140. NOMINAL.ACCOUNT
  141. TRANS.TYPE
  142. TOT.RECS
  143. \
  144. \STSELECT  
  145.          Selection screen for LIST OF TRANSACTIONS FOR BANK RECONCIL.
  146.          ------------------------------------------------------------
  147.        &: ENTER I FOR "INCOME" TRANSACTIONS HERE-THEN PRESS RETURN TWICE
  148.        &: ENTER E FOR EXPENDITURE TRANSACTIONS HERE-THEN PRESS RET. TWICE
  149.  
  150.  
  151. NOTE: YOU MUST NOT ENTER I AND E AT THE SAME TIME
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169. \
  170. SELECT.FLD.F1
  171. SELECT.FLD.T1
  172. \
  173.  
  174.